(* Initialisation de SDL *)
let sdl_init () =
  begin
    Sdl.init [`EVERYTHING] ;
        Sdlevent.enable_events Sdlevent.all_events_mask ;
  end

(* Recuperation des dimensions de l'image *)
let get_dims img =
  ((Sdlvideo.surface_info img).Sdlvideo.w, (Sdlvideo.surface_info
					      img).Sdlvideo.h)

(* Attendre une touche *)
let rec wait_key () =
  let e = Sdlevent.wait_event () in
    match e with
	Sdlevent.KEYDOWN _ -> ()
      | _ -> wait_key ()

let show img dst =
  let d = Sdlvideo.display_format img in
    Sdlvideo.blit_surface d dst () ;
    Sdlvideo.flip dst

(* End of File *)
